VERSION 5.00
Begin VB.UserControl ClientDemoCtrl 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   4005
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   11445
   ScaleHeight     =   4005
   ScaleWidth      =   11445
   Begin VB.Label DBSLabel 
      BackStyle       =   0  'Transparent
      Caption         =   "Collect Dried Blood Spot for This Client"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3480
      TabIndex        =   41
      Top             =   3600
      Visible         =   0   'False
      Width           =   4335
   End
   Begin VB.Line DBSPrompt 
      BorderColor     =   &H000000FF&
      BorderWidth     =   20
      Visible         =   0   'False
      X1              =   10080
      X2              =   1320
      Y1              =   3780
      Y2              =   3780
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Curr. Residential Class.:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   16
      Top             =   2220
      Width           =   2535
   End
   Begin VB.Label Age_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Age:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   15
      Top             =   1560
      Width           =   1455
   End
   Begin VB.Label Client_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   720
      TabIndex        =   27
      Top             =   540
      Width           =   2895
   End
   Begin VB.Label ReasonHere_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   4
      Top             =   3180
      Width           =   3735
   End
   Begin VB.Label RefBy_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   3
      Top             =   2520
      Width           =   3555
   End
   Begin VB.Label KnewMACRO_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   915
      Left            =   7380
      TabIndex        =   2
      Top             =   1200
      Width           =   3555
      WordWrap        =   -1  'True
   End
   Begin VB.Label MarHist_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   7380
      TabIndex        =   1
      Top             =   540
      Width           =   3555
   End
   Begin VB.Label CurrMarType_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   0
      Top             =   3180
      Width           =   2535
   End
   Begin VB.Label MarStat_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   7
      Top             =   2520
      Width           =   2535
   End
   Begin VB.Label HighEduAtt_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   6
      Top             =   1860
      Width           =   2895
   End
   Begin VB.Label CurrOccup_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   5
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Label CurrEmp_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   3960
      TabIndex        =   8
      Top             =   540
      Width           =   2535
   End
   Begin VB.Label AttGrpSess_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   9
      Top             =   3180
      Width           =   2535
   End
   Begin VB.Label CurrResClass_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   10
      Top             =   2520
      Width           =   2535
   End
   Begin VB.Label Age_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   11
      Top             =   1860
      Width           =   2535
   End
   Begin VB.Label CoupleType_Data 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   315
      Left            =   720
      TabIndex        =   12
      Top             =   1200
      Width           =   2535
   End
   Begin VB.Line SexColorLine 
      BorderColor     =   &H00FFC0C0&
      BorderWidth     =   10
      X1              =   60
      X2              =   60
      Y1              =   660
      Y2              =   3120
   End
   Begin VB.Label Label12 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Most Important Reason Here:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   26
      Top             =   2880
      Width           =   2955
   End
   Begin VB.Label Label11 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Referred By:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   25
      Top             =   2220
      Width           =   1455
   End
   Begin VB.Label Label10 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Knew About Our Services:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   24
      Top             =   900
      Width           =   3135
   End
   Begin VB.Label Label9 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Marital History:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   7260
      TabIndex        =   23
      Top             =   240
      Width           =   2475
   End
   Begin VB.Label Label8 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Curr. Marriage Type:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   22
      Top             =   2880
      Width           =   2535
   End
   Begin VB.Label Label6 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Marital Status:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   21
      Top             =   2220
      Width           =   2475
   End
   Begin VB.Label HighEduAtt_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Highest Education Attended:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   20
      Top             =   1560
      Width           =   2955
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Curr. Occupation:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   19
      Top             =   900
      Width           =   2475
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Currently Employed:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3840
      TabIndex        =   18
      Top             =   240
      Width           =   2415
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Attended Group Session:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   17
      Top             =   2880
      Width           =   2595
   End
   Begin VB.Label CoupleType_Label 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Couple Type:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   14
      Top             =   900
      Width           =   1455
   End
   Begin VB.Label Label13 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Client | Couple Code:"
      BeginProperty Font 
         Name            =   "Abadi MT Condensed Light"
         Size            =   14.25
         Charset         =   0
         Weight          =   300
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   600
      TabIndex        =   28
      Top             =   240
      Width           =   2175
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   12
      Left            =   7020
      TabIndex        =   40
      Top             =   2820
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   11
      Left            =   7020
      TabIndex        =   39
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   10
      Left            =   7020
      TabIndex        =   38
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   9
      Left            =   7020
      TabIndex        =   37
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   8
      Left            =   3600
      TabIndex        =   36
      Top             =   2820
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   7
      Left            =   3600
      TabIndex        =   35
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   6
      Left            =   3600
      TabIndex        =   34
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   5
      Left            =   3600
      TabIndex        =   33
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   4
      Left            =   3600
      TabIndex        =   32
      Top             =   180
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   2
      Left            =   360
      TabIndex        =   31
      Top             =   2160
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   1
      Left            =   360
      TabIndex        =   30
      Top             =   1500
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   0
      Left            =   360
      TabIndex        =   29
      Top             =   840
      Width           =   255
   End
   Begin VB.Label Star 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "*"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H8000000D&
      Height          =   495
      Index           =   3
      Left            =   360
      TabIndex        =   13
      Top             =   2820
      Width           =   255
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00C0FFFF&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00000000&
      BorderWidth     =   2
      Height          =   3735
      Left            =   60
      Shape           =   4  'Rounded Rectangle
      Top             =   60
      Width           =   11295
   End
End
Attribute VB_Name = "ClientDemoCtrl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False

Public Sub UpdateData()

   If SESSTYPE = "01" Then
      If Sex = "1" Then 'Individual
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Male)"
      Else
         Client_Data.Caption = CLIENTCO & " | n/a" & "  (Female)"
      End If
   Else
      If SESSTYPE = "02" Then 'Couple
         If Sex = "1" Then
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Male)"
         Else
            Client_Data.Caption = CLIENTCO & " | " & COUPCODE & "  (Female)"
         End If
      Else 'Error
         Client_Data.Caption = "Invalid SESSTYPE"
      End If
   End If

   Select Case COUPTYPE
      Case ""
         CoupleType_Data.Caption = ""
      Case "01"
         CoupleType_Data.Caption = "Married"
      Case "02"
         CoupleType_Data.Caption = "Premarital"
      Case "03"
         CoupleType_Data.Caption = "Presexual"
      Case "04"
         CoupleType_Data.Caption = "Sex Partner"
      Case "98"
         CoupleType_Data.Caption = "N/A"
      Case Else
         CoupleType_Data.Caption = "ERROR"
   End Select

   Age_Data.Caption = Age
   
   Select Case RESCLASS
      Case ""
         CurrResClass_Data.Caption = ""
      Case "01"
         CurrResClass_Data.Caption = "Urban"
      Case "02"
         CurrResClass_Data.Caption = "Rural"
      Case "98"
         CurrResClass_Data.Caption = "Other"
      Case Else
         CurrResClass_Data.Caption = "ERROR"
   End Select

   Select Case GROUPSES
      Case ""
         AttGrpSess_Data.Caption = ""
      Case "0"
         AttGrpSess_Data.Caption = "No"
      Case "1"
         AttGrpSess_Data.Caption = "Yes"
      Case Else
         AttGrpSess_Data.Caption = "ERROR"
   End Select
   
   Select Case EMPLOYED
      Case ""
         CurrEmp_Data.Caption = ""
      Case "0"
         CurrEmp_Data.Caption = "No"
      Case "1"
         CurrEmp_Data.Caption = "Yes"
      Case Else
         CurrEmp_Data.Caption = "ERROR"
   End Select
   
   Select Case OCCUPAT
      Case ""
         CurrOccup_Data.Caption = ""
      Case "01"
         CurrOccup_Data.Caption = "Unskilled"
      Case "02"
         CurrOccup_Data.Caption = "Skilled"
      Case "03"
         CurrOccup_Data.Caption = "Professional"
      Case "04"
         CurrOccup_Data.Caption = "Business"
      Case "05"
         CurrOccup_Data.Caption = "Military/Police"
      Case "06"
         CurrOccup_Data.Caption = "Security"
      Case "07"
         CurrOccup_Data.Caption = "Student"
      Case "08"
         CurrOccup_Data.Caption = "Subsistance Farmer"
      Case "09"
         CurrOccup_Data.Caption = "Housewife"
      Case "10"
         CurrOccup_Data.Caption = "None"
      Case "99"
         CurrOccup_Data.Caption = "Other"
      Case Else
         CurrOccup_Data.Caption = "ERROR"
   End Select
      
   Select Case EDUEXPE
      Case ""
         HighEduAtt_Data.Caption = ""
      Case "00"
         HighEduAtt_Data.Caption = "None"
      Case "01"
         HighEduAtt_Data.Caption = "Primary"
      Case "02"
         HighEduAtt_Data.Caption = "Secondary"
      Case "03"
         HighEduAtt_Data.Caption = "Post-secondary certificate"
      Case "04"
         HighEduAtt_Data.Caption = "University degree"
      Case "05"
         HighEduAtt_Data.Caption = "Post-university degree"
      Case "99"
         HighEduAtt_Data.Caption = "Other"
      Case Else
         HighEduAtt_Data.Caption = "ERROR"
   End Select
   
   Select Case MARSTAT
      Case ""
         MarStat_Data.Caption = ""
      Case "01"
         MarStat_Data.Caption = "Never married"
      Case "02"
         MarStat_Data.Caption = "Married"
      Case "03"
         MarStat_Data.Caption = "Separated"
      Case "04"
         MarStat_Data.Caption = "Divorced"
      Case "05"
         MarStat_Data.Caption = "Widowed"
      Case "06"
         MarStat_Data.Caption = "Cohabitating"
      Case "99"
         MarStat_Data.Caption = "Other"
      Case Else
         MarStat_Data.Caption = "ERROR"
   End Select
      
   Select Case MARTYPE
      Case ""
         CurrMarType_Data.Caption = ""
      Case "01"
         CurrMarType_Data.Caption = "Monogamous"
      Case "02"
         CurrMarType_Data.Caption = "Polygamous"
      Case "98"
         CurrMarType_Data.Caption = "N/A"
      Case "99"
         CurrMarType_Data.Caption = "Other"
      Case Else
         CurrMarType_Data.Caption = "ERROR"
   End Select
   
   Select Case MARHIST
      Case ""
         MarHist_Data.Caption = ""
      Case "01"
         MarHist_Data.Caption = "Prev. separated/divorced"
      Case "02"
         MarHist_Data.Caption = "Prev. widowed"
      Case "98"
         MarHist_Data.Caption = "N/A"
      Case Else
         MarHist_Data.Caption = "ERROR"
   End Select
   
   UdateKnowUs
   
   Select Case REFERBY
      Case ""
         RefBy_Data.Caption = ""
      Case "01"
         RefBy_Data.Caption = "Not referred"
      Case "02"
         RefBy_Data.Caption = "Clinic/Hospital"
      Case "03"
         RefBy_Data.Caption = "Relative"
      Case "04"
         RefBy_Data.Caption = "Friend"
      Case "05"
         RefBy_Data.Caption = "Other Client"
      Case "06"
         RefBy_Data.Caption = "Religious Institution"
      Case "07"
         RefBy_Data.Caption = "CBO"
      Case "08"
         RefBy_Data.Caption = "NGO"
      Case "09"
         RefBy_Data.Caption = "PMTCT"
      'These were added for Lighthouse on 23rd July 2005
      Case "10"
         RefBy_Data.Caption = "Lilongwe Diocese HBC"
      Case "11"
         RefBy_Data.Caption = "Lighthouse HBC"
      'End of adition
      Case "98"
         RefBy_Data.Caption = "N/A"
      Case "99"
         RefBy_Data.Caption = "Other"
      Case Else
         RefBy_Data.Caption = "ERROR"
   End Select
   
   Select Case REASHERE
      Case ""
         ReasonHere_Data.Caption = ""
      Case "01"
         ReasonHere_Data.Caption = "Current HIV risk behavior (<6m)"
      Case "02"
         ReasonHere_Data.Caption = "Past HIV risk behavior (>6m)"
      Case "03"
         ReasonHere_Data.Caption = "Feel Ill/Other symptoms"
      Case "04"
         ReasonHere_Data.Caption = "Referred"
      Case "05"
         ReasonHere_Data.Caption = "Partner behavior"
      Case "06"
         ReasonHere_Data.Caption = "Partner ill/Other symptoms"
      Case "07"
         ReasonHere_Data.Caption = "Partner died"
      Case "08"
         ReasonHere_Data.Caption = "Planning for marriage"
      Case "09"
         ReasonHere_Data.Caption = "Marriage, Other"
      Case "10"
         ReasonHere_Data.Caption = "Pregnancy/PMTC"
      Case "11"
         ReasonHere_Data.Caption = "Get results from previous test"
      Case "12"
         ReasonHere_Data.Caption = "2nd Test (Window period)"
      Case "13"
         ReasonHere_Data.Caption = "Confirm previous HIV status"
      Case "14"
         ReasonHere_Data.Caption = "Need counseling"
      Case "99"
         ReasonHere_Data.Caption = "Other"
      Case Else
         RefBy_Data.Caption = "ERROR"
   End Select
   
End Sub

Property Let C_Age(ByVal P_Age As String)
   Age_Data.Caption = P_Age
End Property

Property Let C_ResClass(ByVal P_ResClass As String)
   CurrResClass_Data.Caption = P_ResClass
End Property

Property Let C_GroupSess(ByVal P_GrpSess As String)
   AttGrpSess_Data.Caption = P_GrpSess
End Property

Property Let C_CurrEmployed(ByVal P_CurrEmployed As String)
   CurrEmp_Data.Caption = P_CurrEmployed
End Property

Property Let C_CurrOccup(ByVal P_Occup As String)
   CurrOccup_Data.Caption = P_Occup
End Property

Property Let C_HighEduAtt(ByVal P_HighEduAtt As String)
   HighEduAtt_Data.Caption = P_HighEduAtt
End Property

Property Let C_MarStatus(ByVal P_MarStatus As String)
   MarStat_Data.Caption = P_MarStatus
End Property

Property Let C_MarType(ByVal P_MarType As String)
   CurrMarType_Data.Caption = P_MarType
End Property

Property Let C_MarHist(ByVal P_MarHist As String)
   MarHist_Data.Caption = P_MarHist
End Property

Property Let C_ReferedBy(ByVal P_ReferrredBy As String)
   RefBy_Data.Caption = P_ReferrredBy
End Property

Property Let C_ReasonHere(ByVal P_ReasonHere As String)
   ReasonHere_Data.Caption = P_ReasonHere
End Property

Public Sub SetStar(ByVal StarIdx As Integer)
   Star(StarIdx).Visible = True
End Sub

Public Sub SetShape(ByVal ShapePar As Integer)
   Shape2.Shape = ShapePar
End Sub

Public Sub UdateKnowUs()
   KnewMACRO_Data.Caption = ""
   If KNOWUS1 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Radio, "
   End If
   If KNOWUS2 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Outreach, "
   End If
   If KNOWUS3 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Signposts, "
   End If
   If KNOWUS4 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Clients, "
   End If
   If KNOWUS5 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Newsprint, "
   End If
   If KNOWUS6 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Clinic/Hosp., "
   End If
   If KNOWUS7 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Television, "
   End If
   If KNOWUS8 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Referred, "
   End If
   If KNOWUS98 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "N/A, "
   End If
   If KNOWUS99 = "1" Then
      KnewMACRO_Data.Caption = KnewMACRO_Data.Caption & "Other, "
   End If
   If Len(KnewMACRO_Data.Caption) >= 2 Then
      KnewMACRO_Data.Caption = Left(KnewMACRO_Data.Caption, Len(KnewMACRO_Data.Caption) - 2)
   End If
End Sub

Private Sub UserControl_Initialize()
'Add this later
'   If Val(CLIENTCO) Mod 30 = 0 Then
'      DBSPrompt.Visible = True
'   Else
'      DBSPrompt.Visible = False
'   End If
   If Sex = "1" Then
      SexColorLine.BorderColor = vbBlue
   Else
      If Sex = "2" Then
         SexColorLine.BorderColor = vbGreen
      Else
         SexColorLine.BorderColor = vbRed
      End If
   End If
   For I = 0 To 12
      Star(I).Visible = False
   Next I
End Sub

Public Sub PrintClientInfo()
Const DemoTop = 2000

   'Printer.CurrentY = DemoTop
   Printer.CurrentX = 600
   Printer.Print "Couple Type: " & CoupleType_Data.Caption
   Printer.CurrentY = 1400
   Printer.CurrentX = 5800
   Printer.Print "Counselor Code: " & COUNCODE
   Printer.CurrentX = 5800
   If Sex = "" Then
      Printer.Print "Sex: "
   Else
      If Sex = "1" Then
         Printer.Print "Sex:   Male"
      Else
         If Sex = "2" Then
            Printer.Print "Sex:   Female"
         Else
            Printer.Print "Sex:   ERROR"
         End If
      End If
   End If
   Printer.CurrentX = 5800
   Printer.Print "Age:   " & Age_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Curr. Residential Class.:   " & CurrResClass_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Attended Group Session:   " & AttGrpSess_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Currently Employed:   " & CurrEmp_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Curr. Occupation:   " & CurrOccup_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Highest Education Attend:   " & HighEduAtt_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Marital Status:   " & MarStat_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Curr. Marriage Type:   " & CurrMarType_Data.Caption
   Printer.CurrentX = 5800
   Printer.Print "Marital History:   " & MarHist_Data.Caption
   Printer.Print
   
   Printer.CurrentX = 600
   Printer.Print "Knew About Our Services:   " & KnewMACRO_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Referred By:   " & RefBy_Data.Caption
   Printer.CurrentX = 600
   Printer.Print "Most Important Reason Here:   " & ReasonHere_Data.Caption
   Printer.Print
   
End Sub
